bitkeeper revision 1.1159.269.7 (4239b07dqrgbq5nyeaRv54s7lw6AsA)

Add sxpr function for installing a new type.

Signed-off-by: Mike Wray <mike.wray@hp.com>

diff --git a/tools/libxutil/sxpr.c b/tools/libxutil/sxpr.c
index 5a9364a317d648abeb0fa0ea82f004f849875237..02a5040b52aa117f2f162ecb5a2678734eba7436 100644 (file)
--- a/tools/libxutil/sxpr.c
+++ b/tools/libxutil/sxpr.c
@@ -82,6 +82,30 @@ static SxprType types[1024] = {
 /** Number of entries in the types array. */
 static int type_sup = sizeof(types)/sizeof(types[0]);
 
+/** Define a type.
+ * The tydef must have a non-zero type code.
+ * It is an error if the type code is out of range or already defined.
+ *
+ * @param tydef type definition
+ * @return 0 on success, error code otherwise
+ */
+int def_sxpr_type(SxprType *tydef){
+    int err = 0;
+    int ty = tydef->type;
+    if(ty < 0 || ty >= type_sup){
+        err = -EINVAL;
+        goto exit;
+    }
+    if(types[ty].type){
+        err = -EEXIST;
+        goto exit;
+    }
+    types[ty] = *tydef;
+  exit:
+    return err;
+    
+}
+
 /** Get the type definition for a given type code.
  *
  * @param ty type code

diff --git a/tools/libxutil/sxpr.h b/tools/libxutil/sxpr.h
index 8b01e84736e5d79f293574ba1ec92dc4e5f926b8..761b8b2da711dcda07acc5a53b4a9fd1afe1d100 100644 (file)
--- a/tools/libxutil/sxpr.h
+++ b/tools/libxutil/sxpr.h
@@ -307,6 +307,7 @@ typedef struct SxprType {
 } SxprType;
 
 
+extern int def_sxpr_type(SxprType *tydef);
 extern SxprType *get_sxpr_type(int ty);
 
 /** Free the pointer in an sxpr.